*******************************************************************************
* Load candidate data
*******************************************************************************

use dataset_candidates, clear

*******************************************************************************
* Density of ideology
*******************************************************************************

#delimit;

gr tw 
 	(kdensity ideology if deputy == 0, col(black) lpat(dash))
	(kdensity ideology if deputy == 1, col(black) lwid(thick))
	,
		plotregion(style(none))
		legend(off)
		yscale(off)
		xtitle("Candidate Conservatism")
		text(.8 .75 "{bf:Experienced}")
		text(.8 -.55 "Inexperienced")
		
		 
	;
	
#delimit cr

*******************************************************************************
* Output
*******************************************************************************

gr export "_output/figure3.pdf", replace

*******************************************************************************
* End
*******************************************************************************
